home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / gs_cff.ps < prev    next >
Text File  |  2002-02-23  |  22KB  |  758 lines
  1. %    Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cff.ps,v 1.10.2.1 2002/02/22 19:45:55 ray Exp $
  17. % Loader for CFF (compressed) fonts, including OpenType CFFs.
  18. % The following are not implemented yet:
  19. %    Deleted entries in the Name Index
  20. %    Embedded PostScript
  21. %    Multiple Master fonts
  22. %    Chameleon fonts
  23. %    Synthetic fonts
  24.  
  25. % ---------------- Font loading machinery ---------------- %
  26.  
  27. % Augment the FONTPATH machinery so it recognizes OpenType CFF font sets.
  28.  
  29. /.scanfontheaders where {
  30.   pop /.scanfontheaders [
  31.    .scanfontheaders aload pop (OTTO*)
  32.   ] def
  33. } if
  34.  
  35. % Load a font file that might be an OpenType CFF font set.
  36.  
  37. % <file> .loadfontfile -
  38. /.loadnonottofontfile /.loadfontfile load def
  39. /.loadfontfile {
  40.   dup 4 string .peekstring pop (OTTO) eq {
  41.         % If this is a font at all, it's an OpenType CFF font set.
  42.     .loadottofontfile
  43.   } {
  44.         % Not a TrueType font.
  45.     .loadnonottofontfile
  46.   } ifelse
  47. } bind def
  48.  
  49. % <file> .loadottofontfile -
  50. /.loadottofontfile {
  51.   /FontSetInit /ProcSet findresource begin
  52.   2 dict begin
  53.   /f exch def /cff null def
  54.   card32 pop card16 6 { next pop } repeat dup {
  55.         % Stack: numtables tablesleft
  56.     dup 0 eq {
  57.       pop pop /.loadottofontfile cvx /invalidfont signalerror
  58.     } if
  59.     f 4 string readstring pop (CFF ) eq { sub exit } if
  60.     1 sub
  61.   } loop
  62.         % Stack: tablesread
  63.   card32 pop card32 card32
  64.         % Stack: tablesread start length
  65.   exch 3 -1 roll 1 add 16 mul 12 add sub
  66.   f exch subfilefilter flushfile    % skip to start
  67.   f exch subfilefilter end
  68.     % Use a random FontSet resource name.  ****** WRONG ******
  69.   realtime rand xor =string cvs exch false
  70.   ReadData
  71. } bind def
  72.  
  73. 30 dict begin
  74.  
  75. % ---------------- Standard strings (actually names) ---------------- %
  76.  
  77. /StandardStrings mark
  78.     % The initial StandardStrings that that denote characters are
  79.     % defined as a pseudo-Encoding.
  80. % 0
  81.   /CFFStandardStrings .findencoding aload pop
  82. % 379
  83.   (001.000)
  84. % 380
  85.   (001.001) (001.002) (001.003) /Black /Bold
  86.   /Book /Light /Medium /Regular /Roman
  87.   /Semibold
  88. .packtomark def
  89.  
  90. % ---------------- Standard encodings ---------------- %
  91.  
  92. /StandardEncodings [
  93.  
  94. % StandardEncoding
  95. mark
  96.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  97.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  98.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  99.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  100.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  101.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  102.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  103.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  104.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  105.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  106.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  107.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  108.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  109.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  110.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  111.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  112. .packtomark
  113.  
  114. % ExpertEncoding
  115. mark
  116.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  117.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  118.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  119.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  120.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  121.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  122.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  123.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  124.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  125.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  126.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  127.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  128.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  129.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  130.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  131.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  132. .packtomark
  133.  
  134. ] readonly def
  135.  
  136. % ---------------- Standard Charsets ---------------- %
  137.  
  138. % We include an explicit 0 at the beginning of each charset.
  139.  
  140. /StandardCharsets [
  141.  
  142. % ISOAdobe
  143. mark
  144.   0
  145.   1 1 228 { } for
  146. .packtomark
  147.  
  148. % Expert
  149. mark
  150.   0
  151.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  152.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  153.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  154.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  155.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  156.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  157.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  158.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  159.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  160.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  161.   374 375 376 377 378
  162. .packtomark
  163.  
  164. % ExpertSubset
  165. mark
  166.   0
  167.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  168.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  169.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  170.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  171.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  172.   341 342 343 344 345 346
  173. .packtomark
  174.  
  175. ] readonly def
  176.  
  177. % ---------------- Font loading ---------------- %
  178.  
  179. % ------ Utilities ------ %
  180.  
  181. /advance {    % <n> advance -
  182.   f cff eq { pos add /pos exch store } { pop } ifelse
  183. } bind def
  184. /next {        % - next <byte>
  185.   f read {
  186.     1 advance
  187.     DEBUG { (  ) print dup = } if
  188.   } if
  189. } bind def
  190. /next2 {    % - next2 <byte1> <byte2>
  191.   f read {
  192.     f read {
  193.       2 advance
  194.       DEBUG { (  ) print 1 index =only (,) print dup = } if
  195.     } {
  196.       1 advance
  197.       DEBUG { (  ) print dup = } if
  198.     } ifelse
  199.   } if
  200. } bind def
  201. /nextstring {    % <length> nextstring <string>
  202.   dup 0 eq {
  203.     pop ()
  204.   } {
  205.     string f exch readstring pop dup length advance
  206.     DEBUG { (  ) print dup == } if
  207.   } ifelse
  208. } bind def
  209. /card8        % - card8 <card8>
  210.  /next load
  211. def
  212. /card16 {    % - card16 <card16>
  213.   next2 exch 8 bitshift add
  214. } bind def
  215. /card32 {    % - card32 <card32>
  216.   card16 16 bitshift card16 add
  217. } bind def
  218. /offsetprocs [
  219.   /card8 load
  220.   /card16 load
  221.   { card8 16 bitshift card16 add } bind
  222.   /card32 load
  223. ] readonly def
  224. /offsetproc {    % <offsize> offsetproc <proc>
  225.   1 sub //offsetprocs exch get
  226. } bind def
  227. /offset {    % <offsize> offset <offset>
  228.   offsetproc exec
  229. } bind def
  230. /sid        % - <sid> sid
  231.   /card16 load
  232. def
  233. /Index {    % - Index <array>
  234.   mark card16 dup 0 ne {
  235.     1 exch next offsetproc dup exec pop exch {
  236.       dup exec dup 4 -1 roll sub 3 1 roll exch
  237.     } repeat pop
  238.   } if pop .packtomark
  239.   [ exch { nextstring } forall ] readonly
  240. } bind def
  241. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  242.   {
  243.     f read not { 12 exit } if
  244.     DEBUG { (..) print dup = } if
  245.     1 advance
  246.     dup 12 eq { pop next 32 add exit } if
  247.     dup 28 lt { exit } if
  248.     dup 32 lt {
  249.       28 sub {
  250.     { card16 32768 xor 32768 sub }
  251.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  252.     { tokenreal }
  253.     { 31 exit }
  254.       } exch get exec
  255.     } {
  256.       dup 247 lt {
  257.     139 sub
  258.       } {
  259.     247 sub {
  260.       { next 108 add }
  261.       { next 364 add }
  262.       { next 620 add }
  263.       { next 876 add }
  264.       { next 108 add neg }
  265.       { next 364 add neg }
  266.       { next 620 add neg }
  267.       { next 876 add neg }
  268.       % 255 is deliberately omitted and will cause a rangecheck
  269.     } exch get exec
  270.       } ifelse
  271.     } ifelse
  272.   } loop
  273. } bind def
  274. /tokenbuf 100 string def
  275. /tokenput {    % <index> <char> tokenput <index+1>
  276.   tokenbuf 2 index 3 -1 roll put 1 add
  277. } bind def
  278. /tokenrealarray [
  279.  (0123456789.E) { } forall
  280.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  281.  null        % will give an error
  282.  (-) 0 get
  283.  { exit }
  284. ] readonly def
  285. /tokenreal {    % - tokenreal <float>
  286.   0 {
  287.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  288.         % We must leave the byte on the stack temporarily so that
  289.         % the exit will see a consistent stack state.
  290.     1 index 15 and tokenrealarray exch get exec tokenput exch pop
  291.   } loop
  292.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  293. } bind def
  294. /Dict {        % <opsdict> Dict -
  295.   /opdict exch store {
  296.     mark tokens
  297.     DEBUG { (tokens: ) print ] dup === mark exch aload pop } if
  298.     opdict exch .knownget { exec } if cleartomark
  299.   } loop cleartomark
  300. } bind def
  301. /idstring {    % <sid> idstring <string|name>
  302.   dup 391 lt { //StandardStrings } { 391 sub strings } ifelse exch get
  303. } bind def
  304. /idname {    % <sid> idname <name>
  305.   idstring dup type /nametype ne { cvn } if
  306. } bind def
  307. /subfilefilter {    % <file> <length> subfilefilter <filter>
  308.     % SubFileDecode interprets a length of 0 as infinite.
  309.   dup 0 le { pop pop () 0 } if () /SubFileDecode filter
  310. } bind def
  311.  
  312. % ------ Top dictionary ------ %
  313.  
  314. /offput {    % <offset> <proc> offput -
  315.   DEBUG { (queued: ) print 1 index =only ( ) print dup === } if
  316.   currentdict exch aload length 1 add packedarray cvx
  317.   offsets 3 1 roll put
  318. } bind def
  319. /queueput {    % <font> <proc> queueput -
  320.   16#7fffffff offsets { pop .min } forall
  321.   pos sub nextstring
  322.   3 1 roll aload length 2 add packedarray cvx
  323.   [ queued aload pop counttomark 2 add -1 roll ]
  324.   /queued exch store
  325. } bind def
  326. /xxput {    % <value> <key> <dict> xxput -
  327.   3 1 roll exch put
  328. } bind def
  329. /putfi {    % <value> <key> putfi -
  330.   FontInfo xxput
  331. } bind def
  332. /xdef {        % <value> <key> xdef -
  333.   exch def
  334. } bind def
  335. /topdictops mark
  336.   12 { exit }
  337.   0 { idstring /version putfi }
  338.   1 { idstring /Notice putfi }
  339.   32 { idstring /Copyright putfi }
  340.   2 { idstring /FullName putfi }
  341.   3 { idstring /FamilyName putfi }
  342.   4 { idstring /Weight putfi }
  343.   33 { 0 ne /isFixedPitch putfi }
  344.   34 { /ItalicAngle putfi }
  345.   35 { /UnderlinePosition putfi }
  346.   36 { /UnderlineThickness putfi }
  347.   37 { /PaintType xdef }
  348.   38 { /FontType xdef }        % actually CharstringType
  349.   39 { counttomark array astore /FontMatrix xdef }
  350.   13 { /UniqueID xdef }
  351.   5 { counttomark array astore /FontBBox xdef }
  352.   40 { /StrokeWidth xdef }
  353.   14 { counttomark array astore /XUID xdef }
  354.   15 {
  355.     dup StandardCharsets length lt {
  356.       StandardCharsets exch get /charset xdef
  357.     } {
  358.       { queuecharset } offput
  359.     } ifelse
  360.   }
  361.   16 {
  362.     dup StandardEncodings length lt {
  363.       /Encoding xdef
  364.     } {
  365.       { queueEncoding } offput
  366.     } ifelse
  367.   }
  368.   17 { { readCharStrings } offput }
  369.   18 { exch /readPrivate cvx 2 packedarray offput }
  370.     % CIDFont operators
  371.   62 {        % ROS, must be first in a CIDFont
  372.     currentdict /FontType undef
  373.     currentdict /Encoding undef
  374.     currentdict /FontMatrix undef
  375.     /CIDFontVersion 0 def
  376.     /CIDFontRevision 0 def
  377.     /CIDFontType 0 def
  378.     /CIDCount 8720 def % Default value defined in CFF spec.
  379.     3 dict begin
  380.     /Supplement xdef
  381.     idstring /Ordering xdef
  382.     idstring /Registry xdef
  383.     /CIDSystemInfo currentdict end def
  384.   }
  385.   63 { /CIDFontVersion xdef }
  386.   64 { /CIDFontRevision xdef }
  387.   65 { /CIDFontType xdef }
  388.   66 { /CIDCount xdef }
  389.   67 { /UIDBase xdef }
  390.   68 { { readFDArray } offput }
  391.   69 { { readFDSelect } offput }
  392.     % This operator only appears in a FDArray element.
  393.   70 { idstring /FontName exch def }
  394. .dicttomark readonly def
  395.  
  396. % readcharset and readFDSelect may require the length of CharStringArray,
  397. % but these structures may occur in the file before the CharStrings.
  398. % If that happens, use a hack: assume that all the data up to the next
  399. % queued read should be read.
  400.  
  401. /charstringcount {    % <font> charstringcount <count> true
  402.             % <font> charstringcount <length> false
  403.   /CharStringArray .knownget {
  404.     length true
  405.   } {
  406.     % Hack: look for the next queued read.
  407.     16#7fffffff offsets { pop .min } forall
  408.     pos sub false
  409.   } ifelse
  410. } bind def
  411.  
  412. /readCharStrings {    % <font> readCharStrings -
  413.   /CharStringArray Index put
  414. } bind def
  415.  
  416. % ------ Charsets and encodings ------ %
  417.  
  418. % Note: formats 1 and 2 can overflow the operand stack.
  419. % We'll fix this if it ever becomes necessary.
  420. /charsetcount {
  421.   charstringcount { 1 sub } { 2 idiv } ifelse
  422. } bind def
  423. /charsetformats [
  424. { [ 0 3 -1 roll charsetcount { sid } repeat ]
  425. } bind
  426. { [ 0 3 -1 roll charsetcount {
  427.     dup 0 eq { pop exit } if
  428.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  429.   } loop ]
  430. } bind
  431. { [ 0 3 -1 roll charsetcount {
  432.     dup 0 eq { pop exit } if
  433.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  434.   } loop ]
  435. } bind
  436. ] readonly def
  437. /queuecharset {        % <font> queuecharset -
  438.   { readcharset } queueput
  439. } bind def
  440. /readcharset {        % <data> <font> readcharset -
  441.   begin 0 () /SubFileDecode filter /f exch store
  442.   charsetformats next get currentdict exch exec /charset exch def end
  443. } bind def
  444.  
  445. /encodingformats [
  446. { 1 1 next { next exch Encoding 3 1 roll put } for
  447. } bind
  448. { 1 next {
  449.     next next 1 add {
  450.             % Stack: gid code
  451.       Encoding 1 index 3 index put
  452.       exch 1 add exch 1 add
  453.     } repeat pop
  454.   } repeat pop
  455. } bind
  456. ] readonly def
  457. /queueEncoding {    % <font> queueEncoding -
  458.   { readEncoding } queueput
  459. } bind def
  460. /readEncoding {        % <data> <font> readEncoding -
  461.   begin 0 () /SubFileDecode filter /f exch store
  462.   /Encoding [ 256 { /.notdef } repeat ] def
  463.   next encodingformats 1 index 127 and get exec
  464.   128 ge {
  465.             % Read supplementary encodings.
  466.     next {
  467.       Encoding next sid idname put
  468.     } repeat
  469.   } if end
  470. } bind def
  471.  
  472. % ------ FDArray and FDSelect ------ %
  473.  
  474. /readFDArray {        % <font> readFDArray -
  475.   Index exch
  476.   2 dict begin /f null def begin
  477.   [ exch {
  478.     dup length subfilefilter /f exch store
  479.     10 dict begin
  480.     /FontType 2 def
  481.     /PaintType 0 def
  482.     /FontMatrix [0.001 0 0 0.001 0 0] def
  483.     /Private 20 dict def
  484.     //topdictops Dict currentdict end
  485.   } forall ] /FDArray xdef end end
  486. } bind def
  487.  
  488. % Note: this implementation can overflow the operand stack.
  489. % We'll fix this if it ever becomes necessary.
  490. /fdselectformats [
  491. { [ exch charstringcount pop { card8 } repeat ] } bind
  492. { /FDSelect cvx /invalidfont signalerror } bind
  493. dup
  494. { pop [ card16 card16 exch {
  495.         % Stack: previndex
  496.     card8 card16 dup 4 1 roll 3 -1 roll sub 1 sub {
  497.       exch 1 index
  498.     } repeat exch
  499.   } repeat pop ]
  500. } bind
  501. ] readonly def
  502.  
  503. /readFDSelect {        % <font> readFDSelect -
  504.   begin fdselectformats next get currentdict exch exec /FDSelect exch def end
  505. } bind def
  506.  
  507.  
  508. % ------ Private dictionary ------ %
  509.  
  510. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  511.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  512.   counttomark array astore
  513. } bind def
  514.  
  515. /privatedictops mark
  516.   12 { exit }
  517.   6 { deltarray /BlueValues xdef }
  518.   7 { deltarray /OtherBlues xdef }
  519.   8 { deltarray /FamilyBlues xdef }
  520.   9 { deltarray /FamilyOtherBlues xdef }
  521.   41 { /BlueScale xdef }
  522.   42 { /BlueShift xdef }
  523.   43 { /BlueFuzz xdef }
  524.   10 { 1 array astore /StdHW xdef }
  525.   11 { 1 array astore /StdVW xdef }
  526.   44 { deltarray /StemSnapH xdef }
  527.   45 { deltarray /StemSnapV xdef }
  528.   46 { 0 ne /ForceBold xdef }
  529.   47 { /ForceBoldThreshold xdef }
  530.   48 { /lenIV xdef }
  531.   49 { /LanguageGroup xdef }
  532.   50 { /ExpansionFactor xdef }
  533.   51 { /initialRandomSeed xdef }
  534.   19 { PrivateStart add { readSubrs } offput }
  535.   20 { /defaultWidthX xdef }
  536.   21 { /nominalWidthX xdef }
  537.     % Multiple Master fonts only
  538.   59 { /NDV xdef }
  539.   60 { /CDV xdef }
  540.   61 { /lenBuildCharArray xdef }
  541. .dicttomark readonly def
  542.  
  543. /readPrivate {        % <font> <size> readPrivate -
  544.   2 dict begin
  545.   /PrivateStart pos def
  546.   f 3 1 roll exch 1 index f exch subfilefilter /f exch store
  547.   dup /FontType get exch
  548.   /Private get begin
  549.         % Default lenIV to -1 even for Type 1 CharStrings.
  550.   2 ne { /lenIV -1 def } if
  551.   //privatedictops Dict end
  552.   exch /f exch store advance
  553.   end
  554. } bind def
  555.  
  556. /readSubrs {        % <font> readSubrs -
  557.   /Subrs Index put
  558. } bind def
  559.  
  560. % ------ Main program ------ %
  561.  
  562. % Clean up after finishing a font.
  563. /cleanupFont {        % (currentdict) cleanupFont -
  564.         % Remove unwanted entries.
  565.   currentdict /charset undef
  566.   currentdict /CharStringArray undef
  567. } bind def
  568.  
  569. % Update the Encoding and CharStrings for a real font.
  570. /finishFont {        % (currentdict) finishFont -
  571.         % Construct the real Encoding.
  572.         % The value of Encoding is either a number, for predefined
  573.         % encodings, or an array of mixed GIDs and names.
  574.   /Encoding mark Encoding
  575.   DEBUG { (Encoding: ) print dup === flush } if
  576.   dup type /integertype eq {
  577.     StandardEncodings exch get { idname } forall
  578.   } {
  579.     {
  580.       dup type /integertype eq { charset exch get idname } if
  581.     } forall
  582.   } ifelse .packtomark def
  583.         % Construct the CharStrings.
  584.         % Note that they may only correspond to an initial
  585.         % subset of the charset.
  586.   /CharStrings charset length CharStringArray length .min dict def
  587.   DEBUG {
  588.     charset length =only ( charset ) print
  589.     CharStringArray length =only ( CharStringArray) =
  590.     charset == flush
  591.   } if
  592.   0 1 CharStrings maxlength 1 sub {
  593.     dup CharStringArray exch get
  594.     exch charset exch get idstring CharStrings xxput
  595.   } for
  596.   cleanupFont
  597. } bind def
  598.  
  599. % Replace CharStrings with GlyphDirectory for a CIDFont;
  600. % Move GlobalSubrs to descendent fonts.
  601. /finishCIDFont {    % (currentdict) finishCIDFont -
  602.         % Construct the GlyphDirectory, similar to CharStrings.
  603.   /FDBytes FDArray length 1 gt { 1 } { 0 } ifelse def
  604.   /GlyphDirectory charset length CharStringArray length .min dict def
  605.   DEBUG {
  606.     charset length =only ( charset ) print
  607.     CharStringArray length =only ( CharStringArray) =
  608.     charset == flush
  609.   } if
  610.   0 1 GlyphDirectory maxlength 1 sub {
  611.     dup CharStringArray exch get
  612.         % If there is more than one FDArray entry, add the font
  613.         % index to the beginning of each charstring.
  614.     FDBytes 1 eq {
  615.       FDSelect 2 index get
  616.       1 string dup 0 4 -1 roll put exch concatstrings
  617.     } if
  618.     exch charset exch get GlyphDirectory xxput
  619.   } for
  620.  
  621.   Private /GlobalSubrs .knownget {
  622.     FDArray {
  623.     /Private get /GlobalSubrs 2 index put
  624.     } forall
  625.     pop
  626.     Private /GlobalSubrs undef
  627.   } if
  628.  
  629.         % Clean up.
  630.   currentdict /FDSelect undef
  631.   cleanupFont
  632. } bind def
  633. % We need to pass the file as a parameter for the sake of the PDF
  634. % interpreter. Also for the sake of PDF, a flag forces the font
  635. % to be defined as <resname> instead of the name embedded in the data.
  636. % This is needed for subsetted fonts; it is valid if the CFF
  637. % contains only a single font.
  638. /StartData {          % <resname> <nbytes> StartData -
  639.   currentfile exch subfilefilter false ReadData
  640. } bind def
  641. /ReadData {           % <resname> <file> <forceresname> ReadData -
  642.  
  643.     % Initialize.
  644.  
  645.   30 dict begin
  646.   /forceresname exch def
  647.   /cff exch def
  648.   /pos 0 def
  649.   /resname exch cvlit def
  650.   /DEBUG DEBUG def    % bring the binding closer
  651.  
  652.     % Read the header.
  653.  
  654.   /f cff def
  655.   /vmajor next def
  656.   /vminor next def
  657.   /hdrsize next def
  658.   /aoffsize next def
  659.  
  660.     % Read the Indexes.
  661.  
  662.   /names Index def
  663.   /topdicts Index def
  664.   /strings Index def
  665.   /gsubrs Index def
  666.  
  667.     % Read the top Dicts.
  668.  
  669.   /offsets 50 dict def
  670.   /queued [] def
  671.   /opdict null def        % reserve a slot
  672.   /fonts [ topdicts {
  673.     0 () /SubFileDecode filter /f exch def
  674.     40 dict begin
  675.         % Preload defaults that differ from PostScript defaults,
  676.         % or that are required.
  677.       /FontType 2 def
  678.       /PaintType 0 def
  679.       /FontMatrix [0.001 0 0 0.001 0 0] def
  680.       /charset StandardCharsets 0 get def
  681.       /Encoding 0 def
  682.       /FontInfo 10 dict
  683.     dup /UnderlinePosition -100 put
  684.     dup /UnderlineThickness 50 put
  685.       def
  686.       /Private 20 dict
  687.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  688.       def
  689.       //topdictops Dict
  690.     currentdict end
  691.   } forall ] def
  692.  
  693.     % Read other tables with queued offsets.
  694.  
  695.   DEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
  696.   { /f cff def
  697.     DEBUG { (pos=) print pos = } if
  698.     offsets pos 2 copy .knownget not { pop pop exit } if
  699.     3 1 roll undef
  700.     DEBUG { (exec queued: ) print dup == } if
  701.     exec
  702.   } loop
  703.   offsets length 0 ne {
  704.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  705.     (Current position is ) print pos ==
  706.     flush stop
  707.   } if
  708.  
  709.     % Process out-of-order tables.
  710.  
  711.   DEBUG { queued length =only ( queued) = flush } if
  712.   queued { exec } forall
  713.  
  714.     % Update Encoding and CharStrings.
  715.  
  716.   fonts {
  717.     begin
  718.     currentdict /CIDFontType known { finishCIDFont } { finishFont } ifelse
  719.     end
  720.   } forall
  721.  
  722.     % Wrap up.
  723.  
  724.   resname mark 0 1 fonts length 1 sub {
  725.     DEBUG { dup =only ( ) print flush } if
  726.     dup names exch get
  727.     forceresname { pop resname } if
  728.     DEBUG { dup == flush } if
  729.     exch fonts exch get
  730.     dup /CIDFontType known {
  731.         % This is a CIDFont.
  732.       dup /CIDFontName 3 index put
  733.       1 index exch /CIDFont defineresource
  734.     } {
  735.         % This is a font.
  736.       dup /FontName 3 index put
  737.       1 index exch definefont
  738.     } ifelse
  739.   } for .dicttomark
  740.   end        % temporary dict
  741.   end        % FontSetInit ProcSet
  742.   /FontSet defineresource pop
  743.  
  744. } bind def
  745.  
  746. % ---------------- Resource category definition ---------------- %
  747.  
  748. currentdict end readonly
  749.  
  750. languagelevel exch 2 .setlanguagelevel
  751.  
  752. /FontSet /Generic /Category findresource dup length dict .copydict
  753. /Category defineresource pop
  754.  
  755. /FontSetInit exch /ProcSet defineresource pop
  756.  
  757. .setlanguagelevel
  758.